HPAVC/HPAVC CD-ROM.iso/pc/AGSBF10.ZIP/AGSBF.PPE

PCBoard Programming Language Executable | 1994-12-02 | 41.5 KB | 2,321 lines

;------------------------------------------------------------------------------
;                                                   .ss.
;                                                   `²²'
;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
;                                    .sS²°$$$²²°"'       d²°'
;                                  .$$²  .$$'
;                                  $$$.,d$$'
;                                  `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------

    Boolean  BOOLEAN001
    Boolean  BOOLEAN002
    Boolean  BOOLEAN003
    Boolean  BOOLEAN004
    Boolean  BOOLEAN005
    Boolean  BOOLEAN006
    Boolean  BOOLEAN007
    Boolean  BOOLEAN008
    Boolean  BOOLEAN009
    Boolean  BOOLEAN010
    Integer  INTEGER001
    Integer  INTEGER002
    Integer  INTEGER003
    Integer  INTEGER004
    Integer  INTEGER005
    Integer  INTEGER006
    Integer  INTEGER007
    Integer  INTEGER008
    Integer  INTEGER009
    Integer  INTEGER010
    Integer  INTEGER011
    Integer  INTEGER012
    Integer  INTEGER013
    Integer  INTEGER014
    Integer  INTEGER015
    Integer  INTEGER016
    Integer  INTEGER017
    Integer  INTEGER018
    Integer  INTEGER019
    Integer  INTEGER020
    Integer  INTEGER021
    Integer  INTEGER022
    Integer  INTEGER023
    Real     REAL001
    Real     REAL002
    Real     REAL003
    String   STRING001
    String   STRING002
    String   STRING003
    String   STRING004
    String   STRING005
    String   STRING006
    String   STRING007
    String   STRING008
    String   STRING009
    String   STRING010
    String   STRING011
    String   STRING012
    String   STRING013
    String   STRING014
    String   STRING015
    String   STRING016
    String   STRING017
    String   STRING018
    String   STRING019
    String   STRING020
    String   STRING021
    String   STRING022
    String   STRING023
    String   STRING024
    String   STRING025
    String   STRING026
    String   STRING027
    String   STRING028
    String   STRING029
    String   STRING030
    String   STRING031
    String   STRING032
    String   STRING033
    String   STRING034
    String   STRING035
    String   STRING036
    String   STRING037
    String   STRING038
    String   STRING039
    String   STRING040
    String   STRING041
    String   STRING042
    String   STRING043
    String   STRING044
    String   STRING045
    String   STRING046
    String   STRING047
    String   STRING048
    String   STRING049
    String   STRING050
    String   STRING051
    String   STRING052
    String   STRING053
    String   STRING054
    String   STRING055
    String   TSTRING056(15)
    String   STRING057
    String   STRING058
    String   STRING059
    Int      INT001
    Int      INT002
    Int      INT003

;------------------------------------------------------------------------------

    STRING001 = "Ok, you have decompiled this PPE... PPLD is a nice utility eh?"
    STRING002 = "Well, look at this code, learn or laugh, do what you want but"
    STRING003 = "please, don't spread any modification without prior permission..."
    STRING004 = ""
    STRING005 = "And please, there is no backdoor here... don't put one... :("
    STRING006 = ""
    STRING007 = "                                  _.Lone Runner/AGS'94"
    For INTEGER011 = 1 To MaxNode()
        If (INTEGER011 <> PcbNode()) Then
            RdUNet INTEGER011
            If (UN_Oper() == "PLaYiNG AEGiS BaTTLe FieLD") Then
                PrintLn "@X0FSorry, the game is already in use on another node..."
                PrintLn "Try again later..."
                PrintLn
                AnsiPos 1, 23
                Wait
                End
            Endif
        Endif
    Next
    RdUNet PcbNode()
    WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "PLaYiNG AEGiS BaTTLe FieLD", " "
    FOpen 1, PPEPath() + "WAR.CFG", 0, 0
    FGet 1, INTEGER021
    FGet 1, INTEGER017
    FGet 1, INTEGER018
    FGet 1, STRING008
    FGet 1, STRING009
    FGet 1, STRING054
    Select Case (Upper(STRING054))
        Case "YES"
            BOOLEAN008 = 1
        Case "NO"
            BOOLEAN008 = 0
        Case Else
            PrintLn "@X0FError in WAR.CFG ! (allowGuess) please, check doc !"
            AnsiPos 1, 23
            Wait
            End
    End Select
    FGet 1, STRING010
    FGet 1, STRING011
    FGet 1, STRING012
    FGet 1, STRING013
    FGet 1, STRING014
    FGet 1, STRING015
    FGet 1, STRING054
    Select Case (Upper(STRING054))
        Case "ALL"
            BOOLEAN004 = 1
        Case "REGD"
            BOOLEAN004 = 0
        Case Else
            PrintLn "@X0FError in WAR.CFG ! (1) please, check doc !"
            AnsiPos 1, 23
            Wait
            End
    End Select
    FGet 1, STRING054
    Select Case (Upper(STRING054))
        Case "ALL"
            BOOLEAN005 = 1
        Case "REGD"
            BOOLEAN005 = 0
        Case Else
            PrintLn "@X0FError in WAR.CFG ! (2) please, check doc !"
            AnsiPos 1, 23
            Wait
            End
    End Select
    FGet 1, STRING054
    Select Case (Upper(STRING054))
        Case "ALL"
            BOOLEAN006 = 1
        Case "REGD"
            BOOLEAN006 = 0
        Case Else
            PrintLn "@X0FError in WAR.CFG ! (3) please, check doc !"
            AnsiPos 1, 23
            Wait
            End
    End Select
    FGet 1, STRING018
    FGet 1, INTEGER001
    FGet 1, STRING026
    FGet 1, STRING019
    FGet 1, INTEGER002
    FGet 1, STRING027
    FGet 1, STRING020
    FGet 1, INTEGER003
    FGet 1, STRING028
    FGet 1, STRING021
    FGet 1, INTEGER004
    FGet 1, STRING029
    FGet 1, STRING022
    FGet 1, INTEGER005
    FGet 1, STRING030
    FGet 1, STRING023
    FGet 1, INTEGER006
    FGet 1, STRING031
    FGet 1, STRING024
    FGet 1, INTEGER007
    FGet 1, STRING032
    FGet 1, STRING025
    FGet 1, INTEGER008
    FGet 1, STRING033
    FClose 1
    STRING039 = PPEPath() + "NUSERS.DAT"
    STRING040 = PPEPath() + "REGD.DAT"
    STRING044 = PPEPath() + "ULIST.$$$"
    STRING045 = PPEPath() + "UNUM.$$$"
    STRING054 = U_Name()
    STRING054 = Replace(STRING054, "A", "a")
    STRING054 = Replace(STRING054, "E", "e")
    STRING054 = Replace(STRING054, "I", "i")
    STRING054 = Replace(STRING054, "O", "o")
    STRING054 = Replace(STRING054, "U", "u")
    STRING046 = STRING054
    FOpen 1, STRING039, 0, 0
    FGet 1, INTEGER020
    FClose 1
    STRING037 = PPEPath() + "TEMP.$$$"
    Gosub LABEL030
    STRING038 = PPEPath() + "TEMP2.$$$"
    Gosub LABEL031
    INTEGER012 = 0
    For INTEGER011 = 1 To Len(U_Name())
        INTEGER012 = INTEGER012 + Asc(Mid(U_Name(), INTEGER011, 1))
    Next
    STRING052 = I2S(INTEGER012, 16)
    STRING059 = U_Name()
    Gosub LABEL089
    STRING034 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING059, " "), 3) + Right(Trim(STRING059, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
    GetUser
    StartDisp 1
    Cls
    BOOLEAN002 = 0
    Gosub LABEL012
    AnsiPos 1, 13
    PrintLn "@X0F┌@X09─@X01───────────────────@X09H@X0FoSTiLiTi@X0Fe@X09S@X01───────────────────@X09─@X0F┐"
    AnsiPos 1, 14
    PrintLn "@X09│                                                   │"
    For INTEGER011 = 15 To 20
        AnsiPos 1, INTEGER011
        PrintLn "@X01│                                                   │"
    Next
    AnsiPos 1, INTEGER011
    PrintLn "@X09│                                                   │"
    AnsiPos 1, INTEGER011 + 1
    PrintLn "@X0F└@X09─@X01────────────────────────────────────────────────@X01─@X09─@X0F┘"
    Gosub LABEL091
    If (Exist(STRING034)) Then
        BOOLEAN001 = 1
        Goto LABEL001
    Else
        BOOLEAN001 = 0
    Endif
    STRING041 = U_Name()
    Gosub LABEL013
    :LABEL001
    Gosub LABEL014
    :LABEL002
    For INTEGER009 = 1 To 8
        Gosub LABEL010
    Next
    INTEGER009 = 1
    :LABEL003
    If (BOOLEAN002) Gosub LABEL012
    BOOLEAN002 = 1
    Gosub LABEL025
    Gosub LABEL011
    :LABEL004
    STRING051 = Inkey()
    If (STRING051 == "") Goto LABEL004
    If (STRING051 == "UP") Then
        Gosub LABEL010
        If (INTEGER009 == 1) Then
            INTEGER009 = 8
            Goto LABEL005
        Endif
        Dec INTEGER009
        :LABEL005
        Gosub LABEL011
    Endif
    If (STRING051 == "DOWN") Then
        Gosub LABEL010
        If (INTEGER009 == 8) Then
            INTEGER009 = 1
            Goto LABEL006
        Endif
        Inc INTEGER009
        :LABEL006
        Gosub LABEL011
    Endif
    If (STRING051 == Chr(27)) Then
        Goto LABEL007
    Endif
    If (STRING051 == Chr(13)) Then
        If (INTEGER009 == 1) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL053
            Goto LABEL003
        Endif
        If (INTEGER009 == 2) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL062
            Goto LABEL003
        Endif
        If (INTEGER009 == 3) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL073
            Goto LABEL003
        Endif
        If (INTEGER009 == 4) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL040
            Goto LABEL003
        Endif
        If (INTEGER009 == 5) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL035
            Goto LABEL003
        Endif
        If (INTEGER009 == 6) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL070
            Goto LABEL003
        Endif
        If (INTEGER009 == 7) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL075
            Goto LABEL003
        Endif
        If (INTEGER009 == 8) Then
            Gosub LABEL010
            Gosub LABEL012
            Gosub LABEL081
            Goto LABEL002
        Endif
    Endif
    Goto LABEL004
    :LABEL007
    AnsiPos 1, 23
    Wait
    Color 8
    Gosub LABEL008
    Delay 2
    Backup 19
    Color 7
    Gosub LABEL008
    Delay 2
    Backup 19
    Color 15
    Gosub LABEL008
    Delay 2
    Backup 19
    Color 7
    Gosub LABEL008
    Delay 2
    Backup 19
    Color 8
    Gosub LABEL008
    Delay 2
    Backup 19
    Color 15
    Print "                   "
    Backup 19
    Color 8
    Gosub LABEL009
    Delay 2
    Backup 14
    Color 7
    Gosub LABEL009
    Delay 2
    Backup 14
    Color 15
    Gosub LABEL009
    Delay 2
    Backup 14
    Color 7
    Gosub LABEL009
    Delay 2
    Backup 14
    Color 8
    Gosub LABEL009
    Delay 2
    Backup 14
    Color 15
    Print "              "
    Goto LABEL071
    :LABEL008
    Print "CoDe BY LoNe RuNNeR"
    Return
    :LABEL009
    Print "<┤EGiS CoRP'94"
    Return
    :LABEL010
    If (INTEGER009 == 1) Then
        INTEGER011 = (50 - Len(StripAtx(STRING008))) / 2 + 3
        AnsiPos 3, 14
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING008, Space(52 - GetX())
    Endif
    If (INTEGER009 == 2) Then
        INTEGER011 = (50 - Len(StripAtx(STRING009))) / 2 + 3
        AnsiPos 3, 15
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING009, Space(52 - GetX())
    Endif
    If (INTEGER009 == 3) Then
        INTEGER011 = (50 - Len(StripAtx(STRING010))) / 2 + 3
        AnsiPos 3, 16
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING010, Space(52 - GetX())
    Endif
    If (INTEGER009 == 4) Then
        INTEGER011 = (50 - Len(StripAtx(STRING011))) / 2 + 3
        AnsiPos 3, 17
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING011, Space(52 - GetX())
    Endif
    If (INTEGER009 == 5) Then
        INTEGER011 = (50 - Len(StripAtx(STRING012))) / 2 + 3
        AnsiPos 3, 18
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING012, Space(52 - GetX())
    Endif
    If (INTEGER009 == 6) Then
        INTEGER011 = (50 - Len(StripAtx(STRING013))) / 2 + 3
        AnsiPos 3, 19
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING013, Space(52 - GetX())
    Endif
    If (INTEGER009 == 7) Then
        INTEGER011 = (50 - Len(StripAtx(STRING014))) / 2 + 3
        AnsiPos 3, 20
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING014, Space(52 - GetX())
    Endif
    If (INTEGER009 == 8) Then
        INTEGER011 = (50 - Len(StripAtx(STRING015))) / 2 + 3
        AnsiPos 3, 21
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING015, Space(52 - GetX())
    Endif
    Return
    :LABEL011
    If (INTEGER009 == 1) Then
        INTEGER011 = (50 - Len(StripAtx(STRING008))) / 2 + 3
        AnsiPos 3, 14
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING008), Space(52 - GetX())
    Endif
    If (INTEGER009 == 2) Then
        INTEGER011 = (50 - Len(StripAtx(STRING009))) / 2 + 3
        AnsiPos 3, 15
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING009), Space(52 - GetX())
    Endif
    If (INTEGER009 == 3) Then
        INTEGER011 = (50 - Len(StripAtx(STRING010))) / 2 + 3
        AnsiPos 3, 16
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING010), Space(52 - GetX())
    Endif
    If (INTEGER009 == 4) Then
        INTEGER011 = (50 - Len(StripAtx(STRING011))) / 2 + 3
        AnsiPos 3, 17
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING011), Space(52 - GetX())
    Endif
    If (INTEGER009 == 5) Then
        INTEGER011 = (50 - Len(StripAtx(STRING012))) / 2 + 3
        AnsiPos 3, 18
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING012), Space(52 - GetX())
    Endif
    If (INTEGER009 == 6) Then
        INTEGER011 = (50 - Len(StripAtx(STRING013))) / 2 + 3
        AnsiPos 3, 19
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING013), Space(52 - GetX())
    Endif
    If (INTEGER009 == 7) Then
        INTEGER011 = (50 - Len(StripAtx(STRING014))) / 2 + 3
        AnsiPos 3, 20
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING014), Space(52 - GetX())
    Endif
    If (INTEGER009 == 8) Then
        INTEGER011 = (50 - Len(StripAtx(STRING015))) / 2 + 3
        AnsiPos 3, 21
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING015), Space(52 - GetX())
    Endif
    Return
    :LABEL012
    AnsiPos 1, 1
    PrintLn "@X0F─@X0C─@X04─@X0F<┤@X0CE@X04GiS @X0FC@X0Co@X04RP @X0FB@X0Ca@X04TTLe @X0FF@X0Ci@X04eLD─────────────────────────@X0C─@X0F┬@X0C─@X04───────@X0CS@X0FTaT@X0Fu@X0CS@X04─────────@X0C─@X0F┐"
    AnsiPos 54, 2
    PrintLn "@X0C│                        │"
    AnsiPos 1, 2
    For INTEGER011 = 3 To 20
        AnsiPos 54, INTEGER011
        PrintLn "@X04│                        │"
    Next
    AnsiPos 54, INTEGER011
    PrintLn "@X0C│                        │"
    AnsiPos 54, INTEGER011 + 1
    PrintLn "@X0F└@X0C─@X04─────────────────────@X04─@X0C─@X0F┘"
    Return
    :LABEL013
    STRING057 = Upper(STRING041)
    INTEGER012 = 0
    For INTEGER011 = 1 To Len(STRING057)
        INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
    Next
    STRING052 = I2S(INTEGER012, 16)
    STRING059 = STRING057
    Gosub LABEL089
    STRING057 = STRING059
    STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
    If (Exist(STRING035)) Then
        Delete STRING035
    Endif
    FCreate 1, STRING035, 1, 0
    FPutLn 1, STRING041
    FPutLn 1, INTEGER021
    FPutLn 1, "[iS_HaTiNG]"
    FPutLn 1, "[eND]"
    FPutLn 1, "[iS_HaTeD_BY]"
    FPutLn 1, "[eND]"
    FPutLn 1, "[MeSSaGeS_WaiTiNG]"
    FPutLn 1, "[eND]"
    FPutLn 1, "[BRiBe_GiFT]"
    FPutLn 1, "[eND]"
    FPutLn 1, "[DeCLaRaTioNS]"
    FPutLn 1, "[eND]"
    FPutLn 1, "[eND_DaTa]"
    FClose 1
    INTEGER020 = S2I(ReadLine(STRING039, 1), 10)
    FClose -1
    Inc INTEGER020
    Delete STRING039
    FCreate 5, STRING039, 1, 0
    FPutLn 5, INTEGER020
    FClose 5
    FCreate 5, STRING037, 1, 0
    FOpen 7, STRING040, 0, 0
    FGet 7, STRING052
    While (STRING052 <> "") Do
        FPutLn 5, STRING052
        FGet 7, STRING052
    EndWhile
    STRING041 = Replace(STRING041, "A", "a")
    STRING041 = Replace(STRING041, "E", "e")
    STRING041 = Replace(STRING041, "I", "i")
    STRING041 = Replace(STRING041, "O", "o")
    STRING041 = Replace(STRING041, "U", "u")
    FPutLn 5, STRING041
    FClose 5
    FClose 7
    Delete STRING040
    Rename STRING037, STRING040
    Return
    :LABEL014
    Gosub LABEL031
    FOpen 1, STRING034, 0, 0
    FCreate 4, STRING038, 1, 0
    FGet 1, STRING052
    If (STRING052 <> U_Name()) Then
        AnsiPos 55, 3
        PrintLn " THiS aCCouNT iS NoT  "
        AnsiPos 55, 4
        PrintLn " YouRS ! FoR iNTeRNaL "
        AnsiPos 55, 5
        PrintLn " ReaSoNS, You CaNNot  "
        AnsiPos 55, 6
        PrintLn "      PLay... :(      "
        AnsiPos 1, 23
        Wait
    Else
        FPutLn 4, STRING052
        FGet 1, INTEGER013
        FPutLn 4, INTEGER013
        While (1) Do
            BOOLEAN002 = 1
            FGet 1, STRING053
            If (STRING053 == "[iS_HaTiNG]") Then
                FPutLn 4, STRING053
                INTEGER014 = -1
                :LABEL015
                Inc INTEGER014
                FGet 1, STRING052
                FPutLn 4, STRING052
                If (STRING052 <> "[eND]") Goto LABEL015
            Endif
            If (STRING053 == "[iS_HaTeD_BY]") Then
                FPutLn 4, STRING053
                INTEGER015 = -1
                :LABEL016
                Inc INTEGER015
                FGet 1, STRING052
                FPutLn 4, STRING052
                If (STRING052 <> "[eND]") Goto LABEL016
            Endif
            If (STRING053 == "[MeSSaGeS_WaiTiNG]") Then
                FPutLn 4, STRING053
                :LABEL017
                FGet 1, STRING052
                If (STRING052 == "[BeGiN_MeSSaGe]") Then
                    FGet 1, STRING016
                    FGet 1, BOOLEAN003
                    For INTEGER011 = 0 To 15
                        FGet 1, TSTRING056(INTEGER011)
                    Next
                    FGet 1, STRING052
                    If (STRING052 <> "[eND_MeSSaGe]") Then
                        Goto LABEL023
                        Goto LABEL018
                    Endif
                    Gosub LABEL024
                    :LABEL018
                    Goto LABEL017
                Endif
                If (STRING052 <> "[eND]") Then
                    Goto LABEL023
                Endif
                FPutLn 4, STRING052
            Endif
            If (STRING053 == "[BRiBe_GiFT]") Then
                FPutLn 4, STRING053
                :LABEL019
                FGet 1, STRING052
                If (STRING052 == "[BeGiN_BRiBe_GiFT]") Then
                    FGet 1, STRING055
                    FGet 1, BOOLEAN003
                    FGet 1, INTEGER016
                    For INTEGER011 = 0 To 10
                        FGet 1, TSTRING056(INTEGER011)
                    Next
                    FGet 1, STRING052
                    If (STRING052 <> "[eND_BRiBe_GiFT]") Then
                        Goto LABEL023
                        Goto LABEL020
                    Endif
                    Gosub LABEL027
                    :LABEL020
                    Goto LABEL019
                Endif
                If (STRING052 <> "[eND]") Then
                    Goto LABEL023
                Endif
                FPutLn 4, STRING052
            Endif
            If (STRING053 == "[DeCLaRaTioNS]") Then
                FPutLn 4, STRING053
                :LABEL021
                FGet 1, STRING052
                If (STRING052 == "[BeGiN_DeCLaRaTioN]") Then
                    FGet 1, STRING016
                    STRING055 = STRING016
                    FGet 1, BOOLEAN003
                    INTEGER016 = INTEGER018
                    For INTEGER011 = 0 To 10
                        FGet 1, TSTRING056(INTEGER011)
                    Next
                    FGet 1, STRING052
                    If (STRING052 <> "[eND_DeCLaRaTioN]") Then
                        Goto LABEL023
                        Goto LABEL022
                    Endif
                    Gosub LABEL068
                    :LABEL022
                    Goto LABEL021
                Endif
                If (STRING052 <> "[eND]") Then
                    Goto LABEL023
                Endif
                FPutLn 4, STRING052
            Endif
            If (STRING053 == "[eND_DaTa]") Then
                FPutLn 4, STRING053
                Break
            Endif
        EndWhile
        FClose 1
        FClose 4
        Delete STRING034
        Copy STRING038, STRING034
        Return
        If (Exist(STRING034)) Then
            Delete STRING034
        Endif
        FCreate 1, STRING034, 1, 0
        FClose 1
        Return
        :LABEL023
        AnsiPos 55, 3
        PrintLn "  eRRoR iN uSeR DaTa!! "
        AnsiPos 55, 4
        PrintLn "   SoRRy, You CaNNot   "
        AnsiPos 55, 5
        PrintLn "       PLay... :(      "
        AnsiPos 1, 23
        Wait
        Goto LABEL071
        :LABEL024
        Gosub LABEL012
        AnsiPos 55, 3
        If (BOOLEAN003) Then
            PrintLn "   aN aNoNYMouS uZeR   "
        Else
            PrintLn Space((24 - Len(STRING016)) / 2) + STRING016
        Endif
        AnsiPos 56, 4
        PrintLn "@X0F─@X0C─@X04──────@X0FSaYZ@X04────────@X0C─@X0F─"
        AnsiPos 55, 5
        PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
        AnsiPos 55, 6
        PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
        AnsiPos 55, 7
        PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
        AnsiPos 55, 8
        PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
        AnsiPos 55, 9
        PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
        AnsiPos 55, 10
        PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
        AnsiPos 55, 11
        PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
        AnsiPos 55, 12
        PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
        AnsiPos 55, 13
        PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
        AnsiPos 55, 14
        PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
        AnsiPos 55, 15
        PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
        AnsiPos 55, 16
        PrintLn Space((24 - Len(TSTRING056(11))) / 2) + TSTRING056(11)
        AnsiPos 55, 17
        PrintLn Space((24 - Len(TSTRING056(12))) / 2) + TSTRING056(12)
        AnsiPos 55, 18
        PrintLn Space((24 - Len(TSTRING056(13))) / 2) + TSTRING056(13)
        AnsiPos 55, 19
        PrintLn Space((24 - Len(TSTRING056(14))) / 2) + TSTRING056(14)
        AnsiPos 55, 20
        PrintLn Space((24 - Len(TSTRING056(15))) / 2) + TSTRING056(15)
        AnsiPos 1, 23
        Wait
        Return
        :LABEL025
        AnsiPos 55, 3
        PrintLn "    CuRReNT STaTuS :   "
        AnsiPos 55, 7
        STRING052 = "You HaTe " + String(INTEGER014) + " GuYZ !"
        PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
        AnsiPos 55, 8
        PrintLn "         aND           "
        AnsiPos 55, 9
        STRING052 = String(INTEGER015) + " GuYZ HaTe You !"
        PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
        AnsiPos 55, 11
        STRING052 = "You HaVe " + String(INTEGER013) + " CReDZ"
        PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
        AnsiPos 55, 12
        PrintLn "        LeFT...        "
        AnsiPos 55, 14
        PrintLn "     HaTe-o-MeTeR :    "
        REAL002 = INTEGER020
        REAL003 = INTEGER014 + INTEGER015
        REAL001 = (22 / ((REAL002 - 1) * 2)) * REAL003
        If (REAL001 > 22) REAL001 = 22
        STRING052 = "@X0A■"
        INTEGER011 = 1
        While (INTEGER011 < REAL001) Do
            If (INTEGER011 == 10) STRING052 = STRING052 + "@X0E"
            If (INTEGER011 == 19) STRING052 = STRING052 + "@X0C"
            STRING052 = STRING052 + "■"
            Inc INTEGER011
        EndWhile
        STRING052 = STRING052 + "@X0F"
        While (Len(StripAtx(STRING052)) < 22) Do
            STRING052 = STRING052 + "·"
        EndWhile
        AnsiPos 56, 15
        PrintLn STRING052
        AnsiPos 55, 16
        If (REAL001 < 2) Then
            PrintLn "      PeaCeFull...     "
        ElseIf (REAL001 < 5) Then
            PrintLn "       NoT BaD...      "
        ElseIf (REAL001 < 10) Then
            PrintLn "     iT CoMeS !...     "
        ElseIf (REAL001 < 15) Then
            PrintLn "     ReaLLy GooD !     "
        ElseIf (REAL001 <= 20) Then
            PrintLn "     ouTSTaNDiNG !!    "
        ElseIf (REAL001 > 20) Then
            PrintLn "    !¡!  FuRiouS !¡!   "
            Goto LABEL026
        Endif
        :LABEL026
        Return
        :LABEL027
        Gosub LABEL012
        AnsiPos 55, 3
        If (BOOLEAN003) Then
            PrintLn "   aN aNoNYMouS uZeR   "
        Else
            PrintLn Space((24 - Len(STRING055)) / 2) + STRING055
        Endif
        AnsiPos 55, 4
        PrintLn "  WaNTS To BRiBe YaH !  "
        AnsiPos 55, 5
        STRING052 = "He GiVES " + String(INTEGER016) + " CReDZ !"
        PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
        AnsiPos 55, 6
        PrintLn "    aND aTTaCH THooZ"
        AnsiPos 55, 7
        PrintLn "         WoRDZ..."
        AnsiPos 55, 9
        PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
        AnsiPos 55, 10
        PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
        AnsiPos 55, 11
        PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
        AnsiPos 55, 12
        PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
        AnsiPos 55, 13
        PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
        AnsiPos 55, 14
        PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
        AnsiPos 55, 15
        PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
        AnsiPos 55, 16
        PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
        AnsiPos 55, 17
        PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
        AnsiPos 55, 18
        PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
        AnsiPos 55, 19
        PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
        AnsiPos 56, 21
        PrintLn "  aCCePT GiFT (Y/N) ?  "
        :LABEL028
        STRING051 = Inkey()
        If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL028
        If (Upper(STRING051) == "Y") Then
            INTEGER013 = INTEGER013 + INTEGER016
            BOOLEAN003 = 0
            STRING017 = "AGS BaTTLe FieLD"
            TSTRING056(0) = "YouR BRiBe TRy WiTH"
            TSTRING056(1) = Trim(STRING046, " ")
            TSTRING056(2) = "WaS SuCCeSSFuL !"
            TSTRING056(3) = ""
            TSTRING056(4) = ""
            TSTRING056(5) = "LeT'S HoPe THaT THe GuY"
            TSTRING056(6) = "WiLL NoT oNLY TaKE"
            TSTRING056(7) = "THe CReDiTZ !"
            TSTRING056(8) = ""
            TSTRING056(9) = ""
            TSTRING056(10) = ""
            TSTRING056(11) = ""
            TSTRING056(12) = ""
            TSTRING056(13) = ""
            TSTRING056(14) = ""
            TSTRING056(15) = ""
            STRING057 = STRING055
            Gosub LABEL029
        Else
            INTEGER019 = INTEGER016
            STRING057 = STRING055
            Gosub LABEL032
            BOOLEAN003 = 0
            STRING017 = "AGS BaTTLe FieLD"
            TSTRING056(0) = "YouR BRiBe TRy WiTH"
            TSTRING056(1) = Trim(STRING046, " ")
            TSTRING056(2) = "WaS uNSuCCeSSFuL !"
            TSTRING056(3) = ""
            TSTRING056(4) = ""
            TSTRING056(5) = "You SHouLD TRy WiTH"
            TSTRING056(6) = "MoRe CReDiTZ !"
            TSTRING056(7) = ""
            TSTRING056(8) = ""
            TSTRING056(9) = ""
            TSTRING056(10) = ""
            TSTRING056(11) = ""
            TSTRING056(12) = ""
            TSTRING056(13) = ""
            TSTRING056(14) = ""
            TSTRING056(15) = ""
            Gosub LABEL029
        Endif
        Return
        :LABEL029
        Gosub LABEL033
        STRING057 = Upper(STRING057)
        INTEGER012 = 0
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        Gosub LABEL030
        FOpen 2, STRING035, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING052 = ""
        While (STRING052 <> "[MeSSaGeS_WaiTiNG]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FPutLn 3, "[BeGiN_MeSSaGe]"
        FPutLn 3, STRING017
        FPutLn 3, BOOLEAN003
        FPutLn 3, TSTRING056(0)
        FPutLn 3, TSTRING056(1)
        FPutLn 3, TSTRING056(2)
        FPutLn 3, TSTRING056(3)
        FPutLn 3, TSTRING056(4)
        FPutLn 3, TSTRING056(5)
        FPutLn 3, TSTRING056(6)
        FPutLn 3, TSTRING056(7)
        FPutLn 3, TSTRING056(8)
        FPutLn 3, TSTRING056(9)
        FPutLn 3, TSTRING056(10)
        FPutLn 3, TSTRING056(11)
        FPutLn 3, TSTRING056(12)
        FPutLn 3, TSTRING056(13)
        FPutLn 3, TSTRING056(14)
        FPutLn 3, TSTRING056(15)
        FPutLn 3, "[eND_MeSSaGe]"
        While (STRING052 <> "[eND_DaTa]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FClose 2
        FClose 3
        Delete STRING035
        Copy STRING037, STRING035
        Gosub LABEL034
        Return
        :LABEL030
        If (Exist(STRING037)) Then
            Delete STRING037
        Endif
        Return
        :LABEL031
        If (Exist(STRING038)) Then
            Delete STRING038
        Endif
        Return
        :LABEL032
        Gosub LABEL033
        INTEGER012 = 0
        STRING057 = Upper(STRING057)
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING036 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        Gosub LABEL030
        FOpen 2, STRING036, 0, 0
        FCreate 3, STRING037, 1, 0
        FGet 2, STRING052
        FPutLn 3, STRING052
        FGet 2, INTEGER011
        INTEGER011 = INTEGER011 + INTEGER019
        FPutLn 3, INTEGER011
        STRING052 = ""
        While (STRING052 <> "[eND_DaTa]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FClose 2
        FClose 3
        Delete STRING036
        Copy STRING037, STRING036
        Gosub LABEL034
        Return
        :LABEL033
        AnsiPos 54, 22
        PrintLn "@X0F└@X0C─@X04─────@X8FWorking...@X04───────@X0C─@X0F┘"
        Return
        :LABEL034
        AnsiPos 54, 22
        PrintLn "@X0F└@X0C─@X04──────────────────────@X0C─@X0F┘"
        Return
        :LABEL035
        AnsiPos 55, 3
        PrintLn "   SeND MeSSaGe To :  "
        AnsiPos 56, 4
        PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
        If (BOOLEAN005) Then
            STRING042 = PPEPath() + "USER.LST"
            STRING043 = PPEPath() + "TOTAL.DAT"
        Else
            STRING042 = PPEPath() + "REGD.DAT"
            STRING043 = PPEPath() + "NUSERS.DAT"
        Endif
        Gosub LABEL055
        STRING057 = Upper(Trim(STRING050, " "))
        If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
            BOOLEAN002 = 0
            Return
        Endif
        INTEGER012 = 0
        STRING057 = Upper(STRING057)
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        :LABEL036
        If (Exist(STRING035)) Then
            AnsiPos 55, 3
            PrintLn "  TyPe iN THy MeSSaGe "
            AnsiPos 56, 21
            PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
            For INTEGER022 = 0 To 15
                TSTRING056(INTEGER022) = ""
            Next
            INTEGER023 = 15
            Gosub LABEL090
            AnsiPos 56, 21
            PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
            :LABEL037
            STRING051 = Inkey()
            If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL037
            If (Upper(STRING051) == "Y") Then
                AnsiPos 56, 21
                PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
                :LABEL038
                STRING051 = Inkey()
                If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL038
                If (Upper(STRING051) == "Y") Then
                    BOOLEAN003 = 0
                    Goto LABEL039
                Endif
                BOOLEAN003 = 1
                :LABEL039
                STRING017 = STRING046
                Gosub LABEL029
            Endif
        Else
            Gosub LABEL033
            STRING041 = STRING057
            Gosub LABEL013
            Gosub LABEL034
            Goto LABEL036
        Endif
        Return
        :LABEL040
        AnsiPos 55, 3
        PrintLn "      BRiBe WHo ?     "
        AnsiPos 56, 4
        PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
        If (BOOLEAN006) Then
            STRING042 = PPEPath() + "USER.LST"
            STRING043 = PPEPath() + "TOTAL.DAT"
        Else
            STRING042 = PPEPath() + "REGD.DAT"
            STRING043 = PPEPath() + "NUSERS.DAT"
        Endif
        Gosub LABEL055
        STRING057 = Upper(Trim(STRING050, " "))
        If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
            BOOLEAN002 = 0
            Return
        Endif
        AnsiPos 55, 4
        PrintLn " GiVe HoW MaNy CReDz? "
        AnsiPos 56, 6
        BOOLEAN009 = 0
        Gosub LABEL046
        INTEGER016 = S2I(STRING047, 10)
        If (INTEGER016 > INTEGER013 - 1) Then
            Gosub LABEL012
            AnsiPos 55, 4
            PrintLn "    You DoN'T HaVe    "
            AnsiPos 55, 5
            PrintLn "   eNouGH CReDiTS !   "
            AnsiPos 55, 6
            PrintLn " (MaX = #CReDiTZ - 1) "
            AnsiPos 1, 23
            Wait
            Return
        Endif
        If (INTEGER016 == 0) Return
        INTEGER012 = 0
        STRING057 = Upper(STRING057)
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        :LABEL041
        If (Exist(STRING035)) Then
            Gosub LABEL012
            AnsiPos 55, 3
            PrintLn "  TyPe iN THy MeSSaGe "
            AnsiPos 56, 16
            PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
            BOOLEAN009 = 1
            For INTEGER022 = 0 To 15
                TSTRING056(INTEGER022) = ""
            Next
            INTEGER023 = 10
            Gosub LABEL090
            AnsiPos 56, 16
            PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
            :LABEL042
            STRING051 = Inkey()
            If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL042
            If (Upper(STRING051) == "Y") Then
                AnsiPos 56, 16
                PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
                :LABEL043
                STRING051 = Inkey()
                If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL043
                If (Upper(STRING051) == "Y") Then
                    BOOLEAN003 = 0
                    Goto LABEL044
                Endif
                BOOLEAN003 = 1
                :LABEL044
                STRING017 = STRING046
                Gosub LABEL045
                INTEGER013 = INTEGER013 - INTEGER016
            Endif
        Else
            Gosub LABEL033
            STRING041 = STRING057
            Gosub LABEL013
            Gosub LABEL034
            Goto LABEL041
        Endif
        Return
        :LABEL045
        Gosub LABEL033
        INTEGER012 = 0
        STRING057 = Upper(STRING057)
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        Gosub LABEL030
        FOpen 2, STRING035, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING052 = ""
        While (STRING052 <> "[BRiBe_GiFT]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FPutLn 3, "[BeGiN_BRiBe_GiFT]"
        FPutLn 3, STRING017
        FPutLn 3, BOOLEAN003
        FPutLn 3, INTEGER016
        FPutLn 3, TSTRING056(0)
        FPutLn 3, TSTRING056(1)
        FPutLn 3, TSTRING056(2)
        FPutLn 3, TSTRING056(3)
        FPutLn 3, TSTRING056(4)
        FPutLn 3, TSTRING056(5)
        FPutLn 3, TSTRING056(6)
        FPutLn 3, TSTRING056(7)
        FPutLn 3, TSTRING056(8)
        FPutLn 3, TSTRING056(9)
        FPutLn 3, TSTRING056(10)
        FPutLn 3, "[eND_BRiBe_GiFT]"
        While (STRING052 <> "[eND_DaTa]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FClose 2
        FClose 3
        Delete STRING035
        Copy STRING037, STRING035
        Gosub LABEL034
        Return
        :LABEL046
        BOOLEAN010 = 0
        STRING047 = ""
        :LABEL047
        If (STRING058 == "") Then
            STRING051 = Inkey()
            If (STRING051 == Chr(27)) Then
                BOOLEAN010 = 1
                STRING051 = Chr(13)
            Endif
        Else
            STRING051 = Left(STRING058, 1)
            STRING058 = Mid(STRING058, 2, Len(STRING058) - 1)
        Endif
        If ((STRING051 <> "") && (Len(STRING051) < 2)) Then
            If (STRING051 == Chr(13)) Goto LABEL052
            If ((Asc(STRING051) > 31) && (Len(STRING047) < 22)) Then
                STRING048 = Right(STRING047, 1)
                STRING049 = Left(Right(STRING047, 2), 1)
                If ((STRING048 <> "") && (STRING048 <> " ")) Then
                    If ((STRING049 <> "") && (STRING049 <> " ")) Then
                        Color 4
                        Goto LABEL048
                    Endif
                    Color 12
                    :LABEL048
                    Goto LABEL049
                Endif
                Color 15
                :LABEL049
                Print STRING051
                STRING047 = STRING047 + STRING051
                Goto LABEL051
            Endif
            If (((Asc(STRING051) > 31) && (Len(STRING047) == 22)) && BOOLEAN009) Then
                For STRING048 = Len(STRING047) To 0 Step -1
                    If (Mid(STRING047, STRING048, 1) == " ") Break
                Next
                If (STRING051 == " ") Then
                    Goto LABEL052
                Endif
                If (STRING048 == 0) Then
                    STRING058 = STRING051
                    Goto LABEL050
                Endif
                Backup 22 - STRING048
                Print Space(22 - STRING048)
                Backup 22 - STRING048
                STRING058 = Right(STRING047, 22 - STRING048) + STRING051
                STRING047 = Mid(STRING047, 1, STRING048 - 1)
                :LABEL050
                Goto LABEL052
            Endif
            :LABEL051
            If ((STRING051 == Chr(8)) && (Len(STRING047) > 0)) Then
                Backup 1
                Print "@X07 "
                Backup 1
                STRING047 = Mid(STRING047, 1, Len(STRING047) - 1)
            Endif
        Endif
        Goto LABEL047
        :LABEL052
        Return
        :LABEL053
        If (INTEGER013 == 0) Then
            AnsiPos 55, 3
            PrintLn "  SoRRY, You HaVe No  "
            AnsiPos 56, 4
            PrintLn "    MoRe CReDiTS !    "
            AnsiPos 1, 23
            Wait
            Return
        Endif
        AnsiPos 55, 3
        PrintLn "   eNGaGe WaR WiTH ?  "
        AnsiPos 56, 4
        PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
        If (BOOLEAN004) Then
            STRING042 = PPEPath() + "USER.LST"
            STRING043 = PPEPath() + "TOTAL.DAT"
        Else
            STRING042 = PPEPath() + "REGD.DAT"
            STRING043 = PPEPath() + "NUSERS.DAT"
        Endif
        Gosub LABEL055
        STRING057 = Upper(Trim(STRING050, " "))
        If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
            BOOLEAN002 = 0
            Return
        Endif
        INTEGER012 = 0
        STRING057 = Upper(STRING057)
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        BOOLEAN007 = 0
        If (Exist(STRING035)) Then
            Gosub LABEL033
            Gosub LABEL072
            Gosub LABEL034
            If (BOOLEAN007 == 1) Then
                Goto LABEL054
            Endif
            Inc INTEGER014
            Dec INTEGER013
        Else
            Gosub LABEL033
            STRING041 = STRING057
            Gosub LABEL013
            Gosub LABEL072
            Gosub LABEL034
            If (BOOLEAN007 == 1) Then
                Goto LABEL054
            Endif
            Inc INTEGER014
            Dec INTEGER013
        Endif
        BOOLEAN002 = 0
        Return
        :LABEL054
        AnsiPos 55, 4
        PrintLn "  You aRe aLReaDY aT  "
        AnsiPos 55, 5
        PrintLn "  WaR WiTH THiS GuY!  "
        AnsiPos 1, 23
        Wait
        Return
        :LABEL055
        INT003 = S2I(ReadLine(STRING043, 1), 10)
        FClose -1
        INT002 = 1
        Gosub LABEL061
        INT001 = 1
        Gosub LABEL059
        :LABEL056
        STRING051 = Inkey()
        STRING051 = Upper(STRING051)
        If (STRING051 == "") Goto LABEL056
        If ((STRING051 == "DOWN") || (STRING051 == "2")) Then
            If (INT001 < INT003) Then
                If (INT001 < INT002 + 15) Then
                    Gosub LABEL060
                    Inc INT001
                    Gosub LABEL059
                    Goto LABEL056
                    Goto LABEL057
                Endif
                Gosub LABEL060
                INT002 = INT002 + 16
                Gosub LABEL061
                INT001 = INT002
                Gosub LABEL059
                Goto LABEL056
            Endif
        Endif
        :LABEL057
        If ((STRING051 == "UP") || (STRING051 == "8")) Then
            If (INT001 > 1) Then
                If (INT001 > INT002) Then
                    Gosub LABEL060
                    Dec INT001
                    Gosub LABEL059
                    Goto LABEL056
                    Goto LABEL058
                Endif
                Gosub LABEL060
                INT002 = INT002 - 16
                Gosub LABEL061
                INT001 = INT002 + 15
                Gosub LABEL059
                Goto LABEL056
            Endif
        Endif
        :LABEL058
        If (((STRING051 == "PGDN") || (STRING051 == "3")) || (STRING051 == "D")) Then
            If (INT002 + 15 < INT003) Then
                INTEGER012 = INT001
                Gosub LABEL060
                INT002 = INT002 + 16
                Gosub LABEL061
                INT001 = INTEGER012 + 16
                If (INT001 > INT003) INT001 = INT003
                Gosub LABEL059
                Goto LABEL056
            Endif
        Endif
        If (((STRING051 == "PGUP") || (STRING051 == "9")) || (STRING051 == "U")) Then
            If (INT002 > 1) Then
                INTEGER012 = INT001
                Gosub LABEL060
                INT002 = INT002 - 16
                Gosub LABEL061
                INT001 = INTEGER012 - 16
                Gosub LABEL059
                Goto LABEL056
            Endif
        Endif
        If (STRING051 == Chr(27)) Then
            FClose -1
            Gosub LABEL012
            STRING050 = ""
            Return
        Endif
        If (STRING051 == Chr(13)) Then
            STRING050 = ReadLine(STRING042, INT001)
            Gosub LABEL012
            FClose -1
            Return
        Endif
        Goto LABEL056
        :LABEL059
        AnsiPos 55, 5 + INT001 - INT002
        STRING052 = ReadLine(STRING042, INT001)
        STRING052 = Space((24 - Len(STRING052)) / 2) + Upper(STRING052) + Space((24 - Len(STRING052)) / 2)
        Print "@X1F", STRING052 + Space(24 - Len(STRING052))
        Return
        :LABEL060
        AnsiPos 55, 5 + INT001 - INT002
        STRING052 = ReadLine(STRING042, INT001)
        STRING052 = Space((24 - Len(STRING052)) / 2) + STRING052 + Space((24 - Len(STRING052)) / 2)
        Print "@X0F", STRING052 + Space(24 - Len(STRING052))
        Return
        :LABEL061
        For INT001 = INT002 To INT002 + 15
            Gosub LABEL060
        Next
        Return
        :LABEL062
        AnsiPos 55, 3
        PrintLn "  TyPe iN THy MeSSaGe "
        AnsiPos 56, 16
        PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
        BOOLEAN009 = 1
        For INTEGER022 = 0 To 15
            TSTRING056(INTEGER022) = ""
        Next
        INTEGER023 = 10
        Gosub LABEL090
        AnsiPos 56, 16
        PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
        :LABEL063
        STRING051 = Inkey()
        If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL063
        If (Upper(STRING051) == "Y") Then
            AnsiPos 56, 16
            PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
            :LABEL064
            STRING051 = Inkey()
            If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL064
            If (Upper(STRING051) == "Y") Then
                BOOLEAN003 = 0
                Goto LABEL065
            Endif
            BOOLEAN003 = 1
            :LABEL065
            Gosub LABEL066
        Endif
        Return
        :LABEL066
        Gosub LABEL033
        FOpen 5, STRING040, 0, 0
        STRING054 = " "
        While (1) Do
            FGet 5, STRING054
            If (Trim(STRING054, " ") == "") Break
            STRING057 = STRING054
            If (Upper(STRING057) <> U_Name()) Then
                STRING017 = STRING046
                Gosub LABEL067
            Endif
        EndWhile
        FClose 5
        Gosub LABEL034
        Return
        :LABEL067
        STRING057 = Upper(STRING057)
        INTEGER012 = 0
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        Gosub LABEL030
        FOpen 2, STRING035, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING052 = ""
        While (STRING052 <> "[DeCLaRaTioNS]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FPutLn 3, "[BeGiN_DeCLaRaTioN]"
        FPutLn 3, STRING017
        FPutLn 3, BOOLEAN003
        FPutLn 3, TSTRING056(0)
        FPutLn 3, TSTRING056(1)
        FPutLn 3, TSTRING056(2)
        FPutLn 3, TSTRING056(3)
        FPutLn 3, TSTRING056(4)
        FPutLn 3, TSTRING056(5)
        FPutLn 3, TSTRING056(6)
        FPutLn 3, TSTRING056(7)
        FPutLn 3, TSTRING056(8)
        FPutLn 3, TSTRING056(9)
        FPutLn 3, TSTRING056(10)
        FPutLn 3, "[eND_DeCLaRaTioN]"
        While (STRING052 <> "[eND_DaTa]") Do
            FGet 2, STRING052
            FPutLn 3, STRING052
        EndWhile
        FClose 2
        FClose 3
        Delete STRING035
        Copy STRING037, STRING035
        Return
        :LABEL068
        Gosub LABEL012
        AnsiPos 55, 3
        If (BOOLEAN003) Then
            PrintLn "   aN aNoNYMouS uZeR   "
        Else
            PrintLn Space((24 - Len(STRING016)) / 2) + STRING016
        Endif
        AnsiPos 55, 4
        PrintLn "  GeTS CReDiTS iF You "
        AnsiPos 55, 5
        PrintLn "    aGRee WiTH HiM ! "
        AnsiPos 55, 7
        PrintLn "       He SaiZ : "
        AnsiPos 55, 9
        PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
        AnsiPos 55, 10
        PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
        AnsiPos 55, 11
        PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
        AnsiPos 55, 12
        PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
        AnsiPos 55, 13
        PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
        AnsiPos 55, 14
        PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
        AnsiPos 55, 15
        PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
        AnsiPos 55, 16
        PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
        AnsiPos 55, 17
        PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
        AnsiPos 55, 18
        PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
        AnsiPos 55, 19
        PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
        AnsiPos 56, 21
        PrintLn "  Do You aGRee (Y/N) ? "
        :LABEL069
        STRING051 = Inkey()
        If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL069
        If (Upper(STRING051) == "Y") Then
            STRING057 = STRING055
            INTEGER019 = INTEGER016
            Gosub LABEL032
            TSTRING056(0) = Trim(STRING046, " ")
            TSTRING056(1) = "aGReeD WiTH You!"
            TSTRING056(2) = ""
            TSTRING056(3) = "You GeT ONe CReDiT !"
            TSTRING056(4) = ""
            TSTRING056(5) = ""
            TSTRING056(6) = ""
            TSTRING056(7) = ""
            TSTRING056(8) = ""
            TSTRING056(9) = ""
            TSTRING056(10) = ""
            TSTRING056(11) = ""
            TSTRING056(12) = ""
            TSTRING056(13) = ""
            TSTRING056(14) = ""
            TSTRING056(15) = ""
            STRING057 = STRING055
            BOOLEAN003 = 0
            STRING017 = "AGS BaTTLe FieLD"
            Gosub LABEL029
        Else
            STRING057 = STRING055
            TSTRING056(0) = Trim(STRING046, " ")
            TSTRING056(1) = "DiD NoT aGReeD WiTH You"
            TSTRING056(2) = ""
            TSTRING056(3) = "You DoN'T GeT aNY"
            TSTRING056(4) = "CReDiT !"
            TSTRING056(5) = ""
            TSTRING056(6) = ""
            TSTRING056(7) = ""
            TSTRING056(8) = ""
            TSTRING056(9) = ""
            TSTRING056(10) = ""
            TSTRING056(11) = ""
            TSTRING056(12) = ""
            TSTRING056(13) = ""
            TSTRING056(14) = ""
            TSTRING056(15) = ""
            BOOLEAN003 = 0
            STRING017 = "AGS BaTTLe FieLD"
            Gosub LABEL029
        Endif
        Return
        :LABEL070
        If (INTEGER014 == 0) Then
            AnsiPos 55, 3
            PrintLn " You ARe aT WaR WiTH  "
            AnsiPos 55, 4
            PrintLn "       NoBoDY !       "
            AnsiPos 1, 23
            Wait
            Return
        Endif
        Gosub LABEL030
        Gosub LABEL031
        FOpen 5, STRING034, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING054 = ""
        While (STRING054 <> "[iS_HaTiNG]") Do
            FGet 5, STRING054
        EndWhile
        FGet 5, STRING054
        INTEGER011 = 0
        While (STRING054 <> "[eND]") Do
            Inc INTEGER011
            FPutLn 3, STRING054
            FGet 5, STRING054
        EndWhile
        FClose 5
        FClose 3
        STRING042 = STRING037
        FCreate 3, STRING038, 1, 0
        FPutLn 3, INTEGER011
        FClose 3
        STRING043 = STRING038
        AnsiPos 55, 3
        PrintLn "   MaKe PeaCe WiTH :  "
        AnsiPos 56, 4
        PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
        Gosub LABEL055
        If (STRING050 == "") Then
            BOOLEAN002 = 0
            Return
        Endif
        Gosub LABEL033
        Gosub LABEL030
        FOpen 5, STRING034, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[iS_HaTiNG]") Break
            FGet 5, STRING054
            FPutLn 3, STRING054
        EndWhile
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[eND]") Break
            FGet 5, STRING054
            If (Upper(STRING054) <> Upper(STRING050)) Then
                FPutLn 3, STRING054
            Endif
        EndWhile
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[eND_DaTa]") Break
            FGet 5, STRING054
            FPutLn 3, STRING054
        EndWhile
        FClose 5
        FClose 3
        Delete STRING034
        Rename STRING037, STRING034
        Dec INTEGER014
        Inc INTEGER013
        Gosub LABEL030
        STRING057 = Upper(STRING050)
        INTEGER012 = 0
        For INTEGER011 = 1 To Len(STRING057)
            INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
        Next
        STRING052 = I2S(INTEGER012, 16)
        STRING059 = STRING057
        Gosub LABEL089
        STRING057 = STRING059
        STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
        FOpen 5, STRING035, 0, 0
        FCreate 3, STRING037, 1, 0
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[iS_HaTeD_BY]") Break
            FGet 5, STRING054
            FPutLn 3, STRING054
        EndWhile
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[eND]") Break
            FGet 5, STRING054
            If (Upper(STRING054) <> U_Name()) Then
                FPutLn 3, STRING054
            Endif
        EndWhile
        STRING054 = ""
        While (1) Do
            If (STRING054 == "[eND_DaTa]") Break
            FGet 5, STRING054
            FPutLn 3, STRING054
        EndWhile
        FClose 5
        FClose 3
        Delete STRING035
        Rename STRING037, STRING035
        Gosub LABEL034
        Return
    Endif
    :LABEL071
    FClose 1
    FClose 2
    FClose 3
    FClose 4
    FClose 5
    FClose 6
    FClose 7
    Gosub LABEL030
    FOpen 1, STRING034, 0, 0
    FCreate 3, STRING037, 1, 0
    FPutLn 3, U_Name()
    FPutLn 3, INTEGER013
    FGet 1, STRING054
    FGet 1, STRING054
    STRING054 = ""
    While (STRING054 <> "[eND_DaTa]") Do
        FGet 1, STRING054
        FPutLn 3, STRING054
    EndWhile
    FClose 1
    FClose 3
    Delete STRING034
    Rename STRING037, STRING034
    Gosub LABEL030
    Gosub LABEL031
    End
    :LABEL072
    INTEGER012 = 0
    STRING057 = Upper(STRING057)
    For INTEGER011 = 1 To Len(STRING057)
        INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
    Next
    STRING052 = I2S(INTEGER012, 16)
    STRING059 = STRING057
    Gosub LABEL089
    STRING057 = STRING059
    STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
    Gosub LABEL030
    FOpen 2, STRING034, 0, 0
    FCreate 3, STRING037, 1, 0
    STRING052 = ""
    While (STRING052 <> "[iS_HaTiNG]") Do
        FGet 2, STRING052
        FPutLn 3, STRING052
    EndWhile
    FGet 2, STRING052
    While (STRING052 <> "[eND]") Do
        If (Upper(STRING052) == STRING057) Then
            FClose 2
            FClose 3
            Gosub LABEL030
            BOOLEAN007 = 1
            Return
        Endif
        FPutLn 3, STRING052
        FGet 2, STRING052
    EndWhile
    STRING054 = Replace(STRING057, "A", "a")
    STRING054 = Replace(STRING054, "E", "e")
    STRING054 = Replace(STRING054, "I", "i")
    STRING054 = Replace(STRING054, "O", "o")
    STRING054 = Replace(STRING054, "U", "u")
    FPutLn 3, STRING054
    FPutLn 3, STRING052
    While (STRING052 <> "[eND_DaTa]") Do
        FGet 2, STRING052
        FPutLn 3, STRING052
    EndWhile
    FClose 2
    FClose 3
    Delete STRING034
    Copy STRING037, STRING034
    Gosub LABEL030
    FOpen 2, STRING035, 0, 0
    FCreate 3, STRING037, 1, 0
    STRING052 = ""
    While (STRING052 <> "[iS_HaTeD_BY]") Do
        FGet 2, STRING052
        FPutLn 3, STRING052
    EndWhile
    STRING054 = Replace(U_Name(), "A", "a")
    STRING054 = Replace(STRING054, "E", "e")
    STRING054 = Replace(STRING054, "I", "i")
    STRING054 = Replace(STRING054, "O", "o")
    STRING054 = Replace(STRING054, "U", "u")
    FPutLn 3, STRING054
    While (STRING052 <> "[eND_DaTa]") Do
        FGet 2, STRING052
        FPutLn 3, STRING052
    EndWhile
    FClose 2
    FClose 3
    Delete STRING035
    Copy STRING037, STRING035
    Return
    :LABEL073
    If (BOOLEAN008) Goto LABEL074
    AnsiPos 55, 3
    PrintLn "   SoRRY, YouR SYSoP  "
    AnsiPos 55, 4
    PrintLn "   HaS DiSaBLeD THiS  "
    AnsiPos 55, 5
    PrintLn "      FuNCTioN :(    "
    AnsiPos 1, 23
    Wait
    Return
    :LABEL074
    If (INTEGER013 < INTEGER017) Then
        AnsiPos 55, 3
        PrintLn " You DoN'T HaVe eNouGH  "
        AnsiPos 56, 4
        PrintLn "  CReDiTS To Do THaT !"
        AnsiPos 1, 23
        Wait
        Return
    Endif
    AnsiPos 55, 3
    PrintLn " -" + String(INTEGER017) + " CReDiT BY MiSTaKe ! "
    AnsiPos 56, 4
    PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
    STRING042 = PPEPath() + "USER.LST"
    STRING043 = PPEPath() + "TOTAL.DAT"
    Gosub LABEL055
    If (Trim(STRING050, " ") == "") Then
        BOOLEAN002 = 0
        Return
    Endif
    FOpen 4, STRING034, 0, 0
    STRING054 = ""
    BOOLEAN007 = 0
    While (STRING054 <> "[iS_HaTeD_BY]") Do
        FGet 4, STRING054
    EndWhile
    While (STRING054 <> "[eND]") Do
        If (STRING054 == "[eND_DaTa]") Break
        FGet 4, STRING054
        If (Upper(STRING054) == Upper(STRING050)) Then
            BOOLEAN007 = 1
        Endif
    EndWhile
    FClose 4
    AnsiPos 55, 4
    Print " You WeRe"
    For INTEGER011 = 1 To 5
        Print "."
        Delay 10
    Next
    If (BOOLEAN007) Then
        PrintLn "RiGHT !!"
        STRING057 = Upper(STRING050)
        TSTRING056(0) = Trim(STRING046, " ")
        TSTRING056(1) = "HaS DiSCoVeRD THaT"
        TSTRING056(2) = "You HaTe HiM !"
        TSTRING056(3) = ""
        TSTRING056(4) = ""
        TSTRING056(5) = ""
        TSTRING056(6) = ""
        TSTRING056(7) = ""
        TSTRING056(8) = ""
        TSTRING056(9) = ""
        TSTRING056(10) = ""
        TSTRING056(11) = ""
        TSTRING056(12) = ""
        TSTRING056(13) = ""
        TSTRING056(14) = ""
        TSTRING056(15) = ""
        BOOLEAN003 = 0
        STRING017 = "AGS BaTTLe FieLD"
        Gosub LABEL029
    Else
        PrintLn "WRoNG :("
        INTEGER013 = INTEGER013 - INTEGER017
    Endif
    AnsiPos 1, 23
    Wait
    Return
    :LABEL075
    AnsiPos 55, 3
    PrintLn "         HeLP          "
    AnsiPos 56, 4
    PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
    FOpen 4, PPEPath() + "Help.txt", 0, 0
    FGet 4, STRING054
    If (STRING054 <> "[BeGiN_HeLP]") Then
        FClose 4
        AnsiPos 55, 5
        PrintLn "  SoRRY, HeLP iS NoT   "
        AnsiPos 55, 6
        PrintLn "      aVaiLaBLe...     "
        AnsiPos 1, 23
        Wait
        Return
    Endif
    While (1) Do
        For INTEGER011 = 0 To 15
            FGet 4, TSTRING056(INTEGER011)
            If (TSTRING056(INTEGER011) == "[eND_HeLP]") Goto LABEL076
        Next
        Gosub LABEL077
    EndWhile
    :LABEL076
    If (INTEGER011 > 0) Then
        For INTEGER012 = INTEGER011 To 15
            TSTRING056(INTEGER012) = ""
        Next
        Gosub LABEL077
    Endif
    FClose 4
    TSTRING056(0) = ""
    TSTRING056(1) = "<┤EGiS CoRP"
    TSTRING056(2) = "BaTTLe FieLD"
    TSTRING056(3) = ""
    TSTRING056(4) = "MaiN CoDiNG :"
    TSTRING056(5) = "LoNe RuNNeR/AGS"
    TSTRING056(6) = ""
    TSTRING056(7) = "aDDiTioNaL CoDiNG :"
    TSTRING056(8) = "NuMBeR SiX/AGS"
    TSTRING056(9) = ""
    TSTRING056(10) = "ANSi DeSiGN :"
    TSTRING056(11) = "aSiaN KNiGHT/ACiD"
    TSTRING056(12) = ""
    TSTRING056(13) = "oRiGiNaL CoNCePT :"
    TSTRING056(14) = "PiZZa & DRoNT/ReBeLS"
    TSTRING056(15) = ""
    Gosub LABEL077
    Return
    :LABEL077
    AnsiPos 55, 5
    PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0) + Space((24 - Len(TSTRING056(0))) / 2)
    AnsiPos 55, 6
    PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1) + Space((24 - Len(TSTRING056(1))) / 2)
    AnsiPos 55, 7
    PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2) + Space((24 - Len(TSTRING056(2))) / 2)
    AnsiPos 55, 8
    PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3) + Space((24 - Len(TSTRING056(3))) / 2)
    AnsiPos 55, 9
    PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4) + Space((24 - Len(TSTRING056(4))) / 2)
    AnsiPos 55, 10
    PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5) + Space((24 - Len(TSTRING056(5))) / 2)
    AnsiPos 55, 11
    PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6) + Space((24 - Len(TSTRING056(6))) / 2)
    AnsiPos 55, 12
    PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7) + Space((24 - Len(TSTRING056(7))) / 2)
    AnsiPos 55, 13
    PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8) + Space((24 - Len(TSTRING056(8))) / 2)
    AnsiPos 55, 14
    PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9) + Space((24 - Len(TSTRING056(9))) / 2)
    AnsiPos 55, 15
    PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10) + Space((24 - Len(TSTRING056(10))) / 2)
    AnsiPos 55, 16
    PrintLn Space((24 - Len(TSTRING056(11))) / 2) + TSTRING056(11) + Space((24 - Len(TSTRING056(11))) / 2)
    AnsiPos 55, 17
    PrintLn Space((24 - Len(TSTRING056(12))) / 2) + TSTRING056(12) + Space((24 - Len(TSTRING056(12))) / 2)
    AnsiPos 55, 18
    PrintLn Space((24 - Len(TSTRING056(13))) / 2) + TSTRING056(13) + Space((24 - Len(TSTRING056(13))) / 2)
    AnsiPos 55, 19
    PrintLn Space((24 - Len(TSTRING056(14))) / 2) + TSTRING056(14) + Space((24 - Len(TSTRING056(14))) / 2)
    AnsiPos 55, 20
    PrintLn Space((24 - Len(TSTRING056(15))) / 2) + TSTRING056(15) + Space((24 - Len(TSTRING056(15))) / 2)
    AnsiPos 1, 23
    Wait
    Return
    :LABEL078
    AnsiPos 1, 23
    SaveScrn
    Select Case (INTEGER010)
        Case 1
            If (STRING026 == "") Goto LABEL079
            If (INTEGER001 > U_Sec) Goto LABEL080
            Call STRING026
        Case 2
            If (STRING027 == "") Goto LABEL079
            If (INTEGER002 > U_Sec) Goto LABEL080
            Call STRING027
        Case 3
            If (STRING028 == "") Goto LABEL079
            If (INTEGER003 > U_Sec) Goto LABEL080
            Call STRING028
        Case 4
            If (STRING029 == "") Goto LABEL079
            If (INTEGER004 > U_Sec) Goto LABEL080
            Call STRING029
        Case 5
            If (STRING030 == "") Goto LABEL079
            If (INTEGER005 > U_Sec) Goto LABEL080
            Call STRING030
        Case 6
            If (STRING031 == "") Goto LABEL079
            If (INTEGER006 > U_Sec) Goto LABEL080
            Call STRING031
        Case 7
            If (STRING032 == "") Goto LABEL079
            If (INTEGER007 > U_Sec) Goto LABEL080
            Call STRING032
        Case 8
            If (STRING033 == "") Goto LABEL079
            If (INTEGER008 > U_Sec) Goto LABEL080
            Call STRING033
    End Select
    :LABEL079
    RestScrn
    Return
    :LABEL080
    AnsiPos 55, 3
    PrintLn "   SoRRY, You DoN'T   "
    AnsiPos 55, 4
    PrintLn "   HaVe THe ReQuiReD  "
    AnsiPos 55, 5
    PrintLn "    LeVeL FoR THiS    "
    AnsiPos 55, 6
    PrintLn "      FuNCTioN :(    "
    AnsiPos 1, 23
    Wait
    Gosub LABEL012
    Return
    :LABEL081
    For INTEGER010 = 1 To 8
        Gosub LABEL087
    Next
    INTEGER010 = 1
    :LABEL082
    Gosub LABEL088
    :LABEL083
    STRING051 = Inkey()
    If (STRING051 == "") Goto LABEL083
    If (STRING051 == "UP") Then
        Gosub LABEL087
        If (INTEGER010 == 1) Then
            INTEGER010 = 8
            Goto LABEL084
        Endif
        Dec INTEGER010
        :LABEL084
        Gosub LABEL088
    Endif
    If (STRING051 == "DOWN") Then
        Gosub LABEL087
        If (INTEGER010 == 8) Then
            INTEGER010 = 1
            Goto LABEL085
        Endif
        Inc INTEGER010
        :LABEL085
        Gosub LABEL088
    Endif
    If (STRING051 == Chr(27)) Then
        Goto LABEL086
    Endif
    If (STRING051 == Chr(13)) Then
        Gosub LABEL087
        Gosub LABEL078
        Goto LABEL082
    Endif
    Goto LABEL083
    :LABEL086
    Return
    :LABEL087
    If (INTEGER010 == 1) Then
        INTEGER011 = (50 - Len(StripAtx(STRING018))) / 2 + 3
        AnsiPos 3, 14
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING018, Space(52 - GetX())
    Endif
    If (INTEGER010 == 2) Then
        INTEGER011 = (50 - Len(StripAtx(STRING019))) / 2 + 3
        AnsiPos 3, 15
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING019, Space(52 - GetX())
    Endif
    If (INTEGER010 == 3) Then
        INTEGER011 = (50 - Len(StripAtx(STRING020))) / 2 + 3
        AnsiPos 3, 16
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING020, Space(52 - GetX())
    Endif
    If (INTEGER010 == 4) Then
        INTEGER011 = (50 - Len(StripAtx(STRING021))) / 2 + 3
        AnsiPos 3, 17
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING021, Space(52 - GetX())
    Endif
    If (INTEGER010 == 5) Then
        INTEGER011 = (50 - Len(StripAtx(STRING022))) / 2 + 3
        AnsiPos 3, 18
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING022, Space(52 - GetX())
    Endif
    If (INTEGER010 == 6) Then
        INTEGER011 = (50 - Len(StripAtx(STRING023))) / 2 + 3
        AnsiPos 3, 19
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING023, Space(52 - GetX())
    Endif
    If (INTEGER010 == 7) Then
        INTEGER011 = (50 - Len(StripAtx(STRING024))) / 2 + 3
        AnsiPos 3, 20
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING024, Space(52 - GetX())
    Endif
    If (INTEGER010 == 8) Then
        INTEGER011 = (50 - Len(StripAtx(STRING025))) / 2 + 3
        AnsiPos 3, 21
        PrintLn "@X0F", Space(INTEGER011 - 3), STRING025, Space(52 - GetX())
    Endif
    Return
    :LABEL088
    If (INTEGER010 == 1) Then
        INTEGER011 = (50 - Len(StripAtx(STRING018))) / 2 + 3
        AnsiPos 3, 14
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING018), Space(52 - GetX())
    Endif
    If (INTEGER010 == 2) Then
        INTEGER011 = (50 - Len(StripAtx(STRING019))) / 2 + 3
        AnsiPos 3, 15
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING019), Space(52 - GetX())
    Endif
    If (INTEGER010 == 3) Then
        INTEGER011 = (50 - Len(StripAtx(STRING020))) / 2 + 3
        AnsiPos 3, 16
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING020), Space(52 - GetX())
    Endif
    If (INTEGER010 == 4) Then
        INTEGER011 = (50 - Len(StripAtx(STRING021))) / 2 + 3
        AnsiPos 3, 17
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING021), Space(52 - GetX())
    Endif
    If (INTEGER010 == 5) Then
        INTEGER011 = (50 - Len(StripAtx(STRING022))) / 2 + 3
        AnsiPos 3, 18
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING022), Space(52 - GetX())
    Endif
    If (INTEGER010 == 6) Then
        INTEGER011 = (50 - Len(StripAtx(STRING023))) / 2 + 3
        AnsiPos 3, 19
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING023), Space(52 - GetX())
    Endif
    If (INTEGER010 == 7) Then
        INTEGER011 = (50 - Len(StripAtx(STRING024))) / 2 + 3
        AnsiPos 3, 20
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING024), Space(52 - GetX())
    Endif
    If (INTEGER010 == 8) Then
        INTEGER011 = (50 - Len(StripAtx(STRING025))) / 2 + 3
        AnsiPos 3, 21
        PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING025), Space(52 - GetX())
    Endif
    Return
    :LABEL089
    STRING059 = Replace(STRING059, ".", "_")
    STRING059 = Replace(STRING059, "*", "_")
    STRING059 = Replace(STRING059, "?", "_")
    STRING059 = Replace(STRING059, "\", "_")
    STRING059 = Replace(STRING059, "/", "_")
    STRING059 = Replace(STRING059, ":", "_")
    STRING059 = Replace(STRING059, ";", "_")
    STRING059 = Replace(STRING059, ",", "_")
    STRING059 = Replace(STRING059, "=", "_")
    STRING059 = Replace(STRING059, "+", "_")
    STRING059 = Replace(STRING059, Chr(34), "_")
    STRING059 = Replace(STRING059, "[", "_")
    STRING059 = Replace(STRING059, "]", "_")
    STRING059 = Replace(STRING059, "<", "_")
    STRING059 = Replace(STRING059, ">", "_")
    For INTEGER022 = 0 To 31
        STRING059 = Replace(STRING059, Chr(INTEGER022), "_")
    Next
    Return
    :LABEL090
    For INTEGER022 = 0 To INTEGER023
        AnsiPos 56, 5 + INTEGER022
        If (INTEGER022 <> INTEGER023) Then
            BOOLEAN009 = 1
        Else
            BOOLEAN009 = 0
        Endif
        Gosub LABEL046
        TSTRING056(INTEGER022) = STRING047
        If (BOOLEAN010) Break
    Next
    Return
    :LABEL091
    AnsiPos 1, 2
    PrintLn "@X06░ ▒ @X0E░   @X06░ @X07▐█▄ @X0C▀▀  @X0F▄▄  @X0C▀   @X0F▄▄ @X7F▓@X0F ▄@X7F█@X0F▄ @X07▄@X7F░@X07▄  @X06▐▌ █▒   ░▀▀▄▓"
    PrintLn "@X06  ░  ░ ░   @X07█@X7F░@X07█▄@X7F▒▓@X0F█████▄██▄██@X7F▓█@X0F▐█@X7F▓▓@X0F█@X7F░@X07█▀ @X0C▀@X6C▓@X0F   @X06░    @X0E░  @X06▒"
    PrintLn "@X06 @X6E░@X06█░ ▒@X0E░ @X06░   @X07▀▀@X7F▒▓@X0F█▀███████▌██@X7F▓@X0F▀▀ @X7F▒@X78░@X0F      @X0C▐▌   @X0E░   ▒  @X06▐"
    PrintLn "@X6E░▒░@X06█@X6E░@X06▓@X0E▒ @X06▒ ░            @X0F▀         @X7F░@X0F     @X0C▀▄@X6C▓@X0C▌ @X06▄@X0E▒ ░ ▓ @X06▄▌"
    PrintLn "@X0E█▌@X6E▒@X06▄@X6E▒░@X0E▓@X6E░@X06▓@X6E░@X06▒   @X0C▄▀                 @X07▐▌     @X0C▐▀@X6C▒@X0F  @X0E▓░▒▓▓@X6E░▓@X07"
    PrintLn "@X0F @X0E▀@X6E█▒@X0E█@X6E▓@X0E▀@X6E▒░▒@X06░▓     @X0F▄▄@X7F░@X0F▄   @X04▄▄▄█▓█▓▄  @X07█   @X08▄  @X0C▐@X06▌  @X0E▐@X6E▓▒▒@X0E█▀"
    PrintLn "@X04▄ @X0E▀ ▀▄▀▀▄@X6E▓@X0E▀    @X0F▐▀▄▀▀  @X04▄████▓▓████ @X07▐▌▄@X78▓@X08▄ @X04■ @X6C▒@X0F   @X0E▀▀   @X0C▄█"
    PrintLn "@X04██▀ ▄       ▄  @X0F▀@X7F░▒@X0F▄@X7F▓@X0F ▄▄▄@X04▀@X0F▄▄@X04▀▀▀@X0F▄▄▄▄@X7F▒░@X78░▒▓@X08▀ @X04▌@X6C░@X0C▌     ▄██"
    PrintLn "@X04▀      ▄     ▀  @X0F▀@X7F▒▓█▓@X0F██@X7F▓@X0F█████████@X7F▓▓@X07▐@X7F░@X78░@X08▀ @X04▓ @X6C▒@X0F     @X0C▄█▀ ▄"
    PrintLn "@X0C   @X04▄▄█▀     @X07███@X0C▄@X6C▓@X0C▄▄▄▄▄▄▄@X0F▀▀▀▀███▐@X7F▓@X0F▀▀@X07▄▀ @X04▄▓▀@X0C▐▌@X07███ @X0C▐█  ▀"
    PrintLn "@X04████▀ ▄ ▀  ▄█@X07█ @X0C▐██▀█@X6C▓▓▓▓▒▒░░@X06▄▄░▄▄ ▓ @X04▀▓▀@X06▄▓@X6C▒@X0C░@X07██  @X0C▀ @X07█@X06▄▌"
    Return

;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
;    6       End
;    1       Cls
;    19      Wait
;    15      Color
;    408     Goto
;    493     Let
;    11      Print
;    200     PrintLn
;    262     If
;    16      FCreate
;    17      FOpen
;    47      FClose
;    95      FGet
;    108     FPutLn
;    1       StartDisp
;    1       GetUser
;    16      Delete
;    159     Gosub
;    58      Return
;    11      Delay
;    11      Inc
;    6       Dec
;    8       Call
;    2       RdUNet
;    1       WrUNet
;    199     AnsiPos
;    15      Backup
;    1       SaveScrn
;    1       RestScrn
;    4       Rename
;    7       Copy
;
;
; ■ Functions used :
;
;    9       -
;    2       *
;    114     /
;    275     +
;    195     -
;    143     ==
;    54      <>
;    41      <
;    30      <=
;    19      >
;    58      >=
;    215     !
;    73      &&
;    38      ||
;    145     Len(
;    71      Upper()
;    26      Mid()
;    24      Left()
;    14      Right()
;    148     Space()
;    12      Chr()
;    13      Asc()
;    46      Trim()
;    14      U_Name()
;    33      StripAtx()
;    36      Replace()
;    12      Inkey()
;    5       String()
;    33      PPEPath()
;    3       PcbNode()
;    5       ReadLine()
;    1       UN_Name()
;    1       UN_City()
;    1       UN_Oper()
;    8       Exist()
;    11      I2S()
;    3       S2I()
;    32      GetX()
;    2       MaxNode()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
;     This is usually normal, but may be a tricky way to launch some
;     sysop-only commands.
;     ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
;    29      For/Next
;    29      While/EndWhile
;    140     If/Then or If/Then/Else
;    5       Select Case
;
;------------------------------------------------------------------------------
;                 AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------